100 GOTO 190
110 :
120 N$="GET PRINTER"
130 OPEN 1,8,15,"S:"+N$+".BAK": CLOSE 1
140 OPEN 1,8,15,"R:"+N$+".BAK="+N$+".BAS": CLOSE 1
150 SAVE N$+".BAS",8
160 VERIFY N$+".BAS",8
170 END
180 :
190 READ D1%,D2%
200 IN$=""
210 READ A: IF A>0 THEN IN$=IN$+CHR$(A): GOTO 210
220 READ DX%,DY%,DL%,DR%,DO%,DU%
230 CT=52224
240 FOR I=0 TO 255: POKE CT+I,I: NEXT I
250 READ A$,A: IF A>0 THEN POKE CT+ASC(A$),A: GOTO 250
260 :
270 PRINT"[147][196]RUCKERTREIBER '[208][210][201][206][212][197][210][195][207][196][197][211]' WIRD"
280 PRINT"GESPEICHERT...":N$="PRINTERCODES"
290 OPEN 2,8,15,("S:"+N$): CLOSE 2
300 OPEN 2,8,2,(N$+",P,W")
310 PRINT#2,CHR$(D1%);CHR$(D2%);
320 PRINT#2,CHR$(LEN(IN$));:   I%=0
330 IF I%=LEN(IN$) THEN 350
340 I%=I%+1: PRINT#2,MID$(IN$,I%,1);: GOTO 330
350 PRINT#2,CHR$(DX%);CHR$(DY%);CHR$(DL%);CHR$(DR%);CHR$(DO%);CHR$(DU%);
360 FOR I=0 TO 255
370 : PRINT#2,CHR$(PEEK(CT+I));
380 NEXT I
390 CLOSE 2: END
400 :
410 DATA 4,7: REM GERAET, SEKUNDAERADR.
420 DATA 13,13,13,-1: REM SCHRIFTART
430 DATA  80: REM SPALTEN
440 DATA  72: REM ZEILEN (0=ENDLOS)
450 :
460 DATA  10: REM LINKER RAND
470 DATA  10: REM RECHER RAND
480 DATA   0: REM OBERER RAND
490 DATA   0: REM UNTERER RAND
500 :
510 DATA "A", 65
520 DATA "B", 66
530 DATA "C", 67
540 DATA "D", 68
550 DATA "E", 69
560 DATA "F", 70
570 DATA "G", 71
580 DATA "H", 72
590 DATA "I", 73
600 DATA "J", 74
610 DATA "K", 75
620 DATA "L", 76
630 DATA "M", 77
640 DATA "N", 78
650 DATA "O", 79
660 DATA "P", 80
670 DATA "Q", 81
680 DATA "R", 82
690 DATA "S", 83
700 DATA "T", 84
710 DATA "U", 85
720 DATA "V", 86
730 DATA "W", 87
740 DATA "X", 88
750 DATA "Y", 89
760 DATA "Z", 90
770 :
780 DATA "[193]",193
790 DATA "[194]",194
800 DATA "[195]",195
810 DATA "[196]",196
820 DATA "[197]",197
830 DATA "[198]",198
840 DATA "[199]",199
850 DATA "[200]",200
860 DATA "[201]",201
870 DATA "[202]",202
880 DATA "[203]",203
890 DATA "[204]",204
900 DATA "[205]",205
910 DATA "[206]",206
920 DATA "[207]",207
930 DATA "[208]",208
940 DATA "[209]",209
950 DATA "[210]",210
960 DATA "[211]",211
970 DATA "[212]",212
980 DATA "[213]",213
990 DATA "[214]",214
1000 DATA "[215]",215
1010 DATA "[216]",216
1020 DATA "[217]",217
1030 DATA "[218]",218
1040 :
1050 DATA "0", 48
1060 DATA "1", 49
1070 DATA "2", 50
1080 DATA "3", 51
1090 DATA "4", 52
1100 DATA "5", 53
1110 DATA "6", 54
1120 DATA "7", 55
1130 DATA "8", 56
1140 DATA "9", 57
1150 :
1160 DATA " ", 32
1170 DATA "#", 35
1180 DATA "(", 40
1190 DATA ")", 41
1200 DATA "+", 43
1210 DATA ",", 44
1220 DATA "-", 45
1230 DATA ".", 46
1240 DATA ":", 58
1250 DATA "<", 60
1260 DATA "=", 61
1270 DATA ">", 62
1280 DATA "?", 63
1290 :
1300 DATA "[192]",192
1310 DATA "[221]",221
1320 DATA "[176]",176
1330 DATA "[174]",174
1340 DATA "[189]",189
1350 DATA "[173]",173
1360 DATA "[178]",178
1370 DATA "[179]",179
1380 DATA "[177]",177
1390 DATA "[171]",171
1400 :
1410 DATA "ENDE",-1